home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / misc / FlexCat.lha / Lib / E21b.sd < prev    next >
Encoding:
Text File  |  1994-11-08  |  1.5 KB  |  71 lines
  1. ##stringtype E
  2. ##shortstrings
  3. /****************************************************************
  4.    This file was created automatically by `%fv'
  5.    from "%f0".
  6.    Do not edit by hand!
  7. ****************************************************************/
  8.  
  9.  
  10.     /* External modules */
  11. MODULE 'locale' , 'libraries/locale'
  12. MODULE 'utility/tagitem'
  13.  
  14.     /* Object definitions */
  15. OBJECT fc_type
  16.     id    :    LONG
  17.     str    :    LONG
  18. ENDOBJECT
  19.  
  20.     /* Global variables */
  21. DEF catalog_%b : PTR TO catalog
  22. DEF %i : fc_type
  23.  
  24.  
  25.     /* Opening catalog procedure */
  26. PROC open_%b_catalog( loc : PTR TO locale , language : PTR TO CHAR )
  27.  
  28.     DEF tag , tagarg
  29.  
  30.     %i.id := %d ; %i.str := %s
  31.  
  32.     close_%b_catalog()
  33.  
  34.     IF (localebase AND (catalog_%b = NIL))
  35.  
  36.         IF language
  37.  
  38.             tag := OC_LANGUAGE
  39.             tagarg := language
  40.  
  41.         ELSE
  42.  
  43.             tag:= TAG_IGNORE
  44.  
  45.         ENDIF
  46.  
  47.         catalog_%b := OpenCatalogA( loc , '%b.catalog' ,
  48.                                     [    OC_BUILTINLANGUAGE , %l ,
  49.                                         tag , tagarg ,
  50.                                         OC_VERSION , %v ,
  51.                                         TAG_DONE    ])
  52.  
  53.     ENDIF
  54.  
  55. ENDPROC
  56.  
  57.     /* Closing catalog procedure */
  58. PROC close_%b_catalog()
  59.  
  60.     IF localebase THEN CloseCatalog( catalog_%b )
  61.     catalog_%b := NIL
  62.  
  63. ENDPROC
  64.  
  65.  
  66.     /* Procedure which returns the correct string according to the catalog */
  67. PROC get_%b_string( fcstr : PTR TO fc_type ) RETURN IF catalog_%b THEN GetCatalogStr( catalog_%b , fcstr.id , fcstr.str ) ELSE fcstr.str
  68. /****************************************************************
  69.    End of the automatically created part!
  70. ****************************************************************/
  71.